home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / sqlgrid.exe / GLOBAL.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-02-20  |  29.3 KB  |  647 lines
  1. Rem Global declarations for Thunder to DB-Library translation dll.
  2. Rem Used by all apps linking with the WBSQL DLL.
  3.  
  4. Rem Global return values for all RETCODE type functions
  5. Global Const SUCCEED% = 1
  6. Global Const FAIL% = 0
  7.  
  8. Rem return values permitted in error handlers
  9. Global Const INTEXIT% = 0
  10. Global Const INTCONTINUE% = 1
  11. Global Const INTCANCEL% = 2
  12.  
  13. Global Const MOREROWS = -1
  14. Global Const NOMOREROWS = -2
  15. Global Const REGROW = -1
  16. Global Const BUFFULL = -3
  17.  
  18. Rem Status code for dbresults(). Possible return values are
  19. Rem SUCCEED, FAIL, and NO_MORE_RESULTS.
  20.  
  21. Global Const NOMORERESULTS = 2
  22.  
  23.  
  24.  
  25. Rem option values permitted in option setting/querying/clearing
  26. Rem used by SqlSetOpt%(), SqlIsOpt%(), and SqlClrOpt%().
  27.  
  28. Global Const SQLBUFFER% = 0
  29. Global Const SQLROWCOUNT% = 2
  30. Global Const SQLSTAT% = 3
  31. Global Const SQLTEXTLIMIT% = 4
  32. Global Const SQLTEXTSIZE% = 5
  33. Global Const SQLARITHABORT% = 6
  34. Global Const SQLARITHIGNORE% = 7
  35. Global Const SQLNOAUTOFREE% = 8
  36. Global Const SQLNOCOUNT% = 9
  37. Global Const SQLNOEXEC% = 10
  38. Global Const SQLPARSEONLY% = 11
  39. Global Const SQLSHOWPLAN% = 12
  40. Global Const SQLSTORPROCID% = 13
  41.  
  42. Rem Data type token values.  Used for datatype determination for a column.
  43.  
  44. Global Const SQLTEXT% = &H23
  45. Global Const SQLARRAY% = &H24
  46. Global Const SQLVARBINARY% = &H25
  47. Global Const SQLINTN% = &H26
  48. Global Const SQLVARCHAR% = &H27
  49. Global Const SQLBINARY% = &H2D
  50. Global Const SQLIMAGE% = &H22
  51. Global Const SQLCHAR% = &H2F
  52. Global Const SQLINT1% = &H30
  53. Global Const SQLBIT% = &H32
  54. Global Const SQLINT2% = &H34
  55. Global Const SQLINT4% = &H38
  56. Global Const SQLMONEY% = &H3C
  57. Global Const SQLDATETIME% = &H3D
  58. Global Const SQLFLT8% = &H3E
  59. Global Const SQLFLTN% = &H6D
  60. Global Const SQLMONEYN% = &H6E
  61. Global Const SQLDATETIMN% = &H6F
  62. Global Const SQLAOPCNT% = &H4B
  63. Global Const SQLAOPSUM% = &H4D
  64. Global Const SQLAOPAVG% = &H4F
  65. Global Const SQLAOPMIN% = &H51
  66. Global Const SQLAOPMAX% = &H52
  67. Global Const SQLAOPANY% = &H53
  68. Global Const SQLAOPNOOP% = &H56
  69.  
  70.  
  71.  
  72. Rem error numbers BSQL error codes that are passed to local error
  73. Rem handler
  74.  
  75. Global Const SQLEMEM% = 10000
  76. Global Const SQLENULL% = 10001
  77. Global Const SQLENLOG% = 10002
  78. Global Const SQLEPWD% = 10003
  79. Global Const SQLECONN% = 10004
  80. Global Const SQLEDDNE% = 10005
  81. Global Const SQLNULLO% = 10006
  82. Global Const SQLESMSG% = 10007
  83. Global Const SQLEBTOK% = 10008
  84. Global Const SQLENSPE% = 10009
  85. Global Const SQLEREAD% = 10010
  86. Global Const SQLECNOR% = 10011
  87. Global Const SQLETSIT% = 10012
  88. Global Const SQLEPARM% = 10013
  89. Global Const SQLEAUTN% = 10014
  90. Global Const SQLECOFL% = 10015
  91. Global Const SQLERDCN% = 10016
  92. Global Const SQLEICN% = 10017
  93. Global Const SQLECLOS% = 10018
  94. Global Const SQLENTXT% = 10019
  95. Global Const SQLEDNTI% = 10020
  96. Global Const SQLETMTD% = 10021
  97. Global Const SQLEASEC% = 10022
  98. Global Const SQLENTLL% = 10023
  99. Global Const SQLETIME% = 10024
  100. Global Const SQLEWRIT% = 10025
  101. Global Const SQLEMODE% = 10026
  102. Global Const SQLEOOB% = 10027
  103. Global Const SQLEITIM% = 10028
  104. Global Const SQLEDBPS% = 10029
  105. Global Const SQLEIOPT% = 10030
  106. Global Const SQLEASNL% = 10031
  107. Global Const SQLEASUL% = 10032
  108. Global Const SQLENPRM% = 10033
  109. Global Const SQLEDBOP% = 10034
  110. Global Const SQLENSIP% = 10035
  111. Global Const SQLECNULL% = 10036
  112. Global Const SQLESEOF% = 10037
  113. Global Const SQLERPND% = 10038
  114. Global Const SQLECSYN% = 10039
  115. Global Const SQLENONET% = 10040
  116. Global Const SQLEBTYP% = 10041
  117. Global Const SQLEABNC% = 10042
  118. Global Const SQLEABMT% = 10043
  119. Global Const SQLEABNP% = 10044
  120. Global Const SQLEBNCR% = 10045
  121. Global Const SQLEAAMT% = 10046
  122. Global Const SQLENXID% = 10047
  123.  
  124. Rem The severity levels are defined here for error handlers
  125.  
  126. Global Const EXINFO% = 1
  127. Global Const EXUSER% = 2
  128. Global Const EXNONFATAL% = 3
  129. Global Const EXCONVERSION% = 4
  130. Global Const EXSERVER% = 5
  131. Global Const EXTIME% = 6
  132. Global Const EXPROGRAM% = 7
  133. Global Const EXRESOURCE% = 8
  134. Global Const EXCOMM% = 9
  135. Global Const EXFATAL% = 10
  136. Global Const EXCONSISTENCY% = 11
  137.  
  138. Rem Length of text timestamp and text pointer
  139. Global Const SQLTXTSLEN% = 8          ' length of text timestamp
  140. Global Const SQLTXPLEN% = 16          ' length of text pointer
  141.  
  142. Global Const OFF_SELECT% = &H16D
  143. Global Const OFF_FROM% = &H14F
  144. Global Const OFF_ORDER% = &H165
  145. Global Const OFF_COMPUTE% = &H139
  146. Global Const OFF_TABLE% = &H173
  147. Global Const OFF_PROCEDURE% = &H16A
  148. Global Const OFF_STATEMENT% = &H1CB
  149. Global Const OFF_PARAM% = &H1C4
  150. Global Const OFF_EXEC% = &H12C
  151.  
  152. Rem Bulk Copy Definitions (bcp)
  153.  
  154. Global Const DBIN% = 1              ' transfer from client to server
  155. Global Const DBOUT% = 2            ' transfer from server to client
  156.  
  157. Global Const BCPMAXERRS% = 1        ' SqlBcpControl parameter
  158. Global Const BCPFIRST% = 2          ' SqlBcpControl parameter
  159. Global Const BCPLAST% = 3           ' SqlBcpControl parameter
  160. Global Const BCPBATCH% = 4          ' SqlBcpControl parameter
  161.  
  162. Rem User defined data type for SqlGetColumnInfo
  163. Type ColumnData
  164.    ColType As Integer
  165.    ColLen As Long
  166.    ColName As String * 30
  167.    ColSqlType As String * 30
  168. End Type
  169.  
  170. Rem User defined data type for SqlGetAltColInfo
  171. Type AltColumnData
  172.    ColID As Integer
  173.    DataType As Integer
  174.    MaxLen As Long
  175.    AggType As Integer
  176.    AggOpName As String * 30
  177. End Type
  178.  
  179. Rem User defined data type for SqlBcpColumnFormat
  180. Type BcpColData
  181.     FType As Integer
  182.     FPLen As Integer
  183.     fColLen As Long
  184.     FTerm As String * 30
  185.     FTLen As Integer
  186.     TCol As Integer
  187. End Type
  188.  
  189. Rem Function/Sub declarations for Thunder App Global module
  190. Declare Function SqlInit Lib "VBSQL.VBX" () As String
  191. Declare Sub SqlWinExit Lib "VBSQL.VBX" ()
  192. Declare Function SqlLogin Lib "VBSQL.VBX" () As Integer
  193. Declare Function SqlSetLUser Lib "VBSQL.VBX" (ByVal Login As Integer, USER As String) As Integer
  194. Declare Function SqlSetLPwd Lib "VBSQL.VBX" (ByVal Login As Integer, USER As String) As Integer
  195. Declare Function SqlSetLApp Lib "VBSQL.VBX" (ByVal Login As Integer, USER As String) As Integer
  196. Declare Function SqlSetLHost Lib "VBSQL.VBX" (ByVal Login As Integer, USER As String) As Integer
  197. Declare Function SqlOpen Lib "VBSQL.VBX" (ByVal Login As Integer, SERVER As String) As Integer
  198. Declare Sub SqlClose Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
  199. Declare Sub SqlFreeLogin Lib "VBSQL.VBX" (ByVal Login As Integer)
  200. Declare Function SqlCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Cmd As String) As Integer
  201. Declare Function SqlExec Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  202. Declare Function SqlResults Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  203. Declare Function SqlNextRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  204. Declare Function SqlNumCols Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  205. Declare Function SqlColName Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  206. Declare Function SqlColType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
  207. Declare Function SqlColLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
  208. Declare Function SqlDatLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Long
  209. Declare Function SqlData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  210. Declare Function SqlDataReady Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  211. Declare Sub SqlExit Lib "VBSQL.VBX" ()
  212. Declare Function SqlSetLoginTime Lib "VBSQL.VBX" (ByVal Seconds As Integer) As Integer
  213. Declare Function SqlSetTime Lib "VBSQL.VBX" (ByVal Seconds As Integer) As Integer
  214. Declare Function SqlSend Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  215. Declare Function SqlOk Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  216. Declare Function SqlGetChar Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal CharNum As Integer) As String
  217. Declare Function SqlStrCpy Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Start As Integer, ByVal NumBytes As Integer, CmdString As String) As Integer
  218. Declare Function SqlStrLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  219. Declare Function SqlSetOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
  220. Declare Function SqlClrOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
  221. Declare Function SqlIsOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
  222. Declare Sub SqlFreeBuf Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
  223. Declare Function SqlCancel Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  224. Declare Function SqlCanQuery Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  225. Declare Function SqlGetRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RowNum As Long) As Integer
  226. Declare Sub SqlClrBuf Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RowNum As Long)
  227. Declare Function SqlColBrowse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
  228. Declare Function SqlColSource Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As String
  229. Declare Function SqlQual Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer, TableName As String) As String
  230. Declare Function SqlTabBrowse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As Integer
  231. Declare Function SqlTabCount Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  232. Declare Function SqlTabName Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As String
  233. Declare Function SqlTabSource Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ColNum As Integer, TabNum As Integer) As String
  234. Declare Function SqlTsNewLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  235. Declare Function SqlTsNewVal Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  236. Declare Function SqlTsPut Lib "VBSQL.VBX" (ByVal SqlConn As Integer, TsVal As String, ByVal NewTsLen As Integer, ByVal TsLen As Integer, TabName As String) As Integer
  237. Declare Function SqlMoreText Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Size As Long, Text As String) As Integer
  238. Declare Function SqlTxPtr Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  239. Declare Function SqlTxTimeStamp Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  240. Declare Function SqlTxTsNewVal Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  241. Declare Function SqlTxTsPut Lib "VBSQL.VBX" (ByVal SqlConn As Integer, NewTxTsVal As String, ByVal Column As Integer) As Integer
  242. Declare Function SqlWriteText Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ObjName As String, TextPtr As String, ByVal TextPtrLen As Integer, TimeStamp As String, ByVal Logging As Integer, ByVal Size As Long, Text As String) As Integer
  243. Declare Function SqlCmdRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  244. Declare Function SqlCount Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  245. Declare Function SqlCurCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  246. Declare Function SqlCurRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  247. Declare Function SqlDead Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  248. Declare Function SqlFirstRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  249. Declare Function SqlGetTime Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  250. Declare Function SqlIsAvail Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  251. Declare Function SqlLastRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  252. Declare Function SqlMoreCmds Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  253. Declare Function SqlNumOrders Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  254. Declare Function SqlRows Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  255. Declare Function SqlRowType Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  256. Declare Function SqlNumAlts Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer) As Integer
  257. Declare Function SqlAltType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  258. Declare Function SqlAltLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  259. Declare Function SqlADLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Long
  260. Declare Function SqlAData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As String
  261. Declare Function SqlAltColId Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  262. Declare Function SqlAltOp Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  263. Declare Function SqlByList Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer) As String
  264. Declare Function SqlNumCompute Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  265. Declare Function SqlUse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, DataBase As String) As Integer
  266. Declare Function SqlGetOff Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal OffType As Integer, ByVal StartFrom As Integer) As Integer
  267. Declare Function SqlOrderCol Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Order As Integer) As Integer
  268. Declare Function SqlChange Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  269. Declare Function SqlGetMaxProcs Lib "VBSQL.VBX" () As Integer
  270. Declare Function SqlName Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  271. Declare Function SqlPrType Lib "VBSQL.VBX" (ByVal Token As Integer) As String
  272. Declare Sub SqlSetAvail Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
  273. Declare Function SqlSetMaxProcs Lib "VBSQL.VBX" (ByVal MaxProcs As Integer) As Integer
  274. Declare Function SqlBCPColfmt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal FColumn As Integer, ByVal FType As Integer, ByVal FPLen As Integer, ByVal FCLen As Long, FTerm As String, ByVal FTLen As Integer, ByVal TCol As Integer) As Integer
  275. Declare Function SqlBCPColumns Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ColCount As Integer) As Integer
  276. Declare Function SqlBCPControl Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Param As Integer, ByVal Value As Long) As Integer
  277. Declare Function SqlBCPExec Lib "VBSQL.VBX" (ByVal SqlConn As Integer, RowsCopied As Long) As Integer
  278. Declare Function SqlBCPInit Lib "VBSQL.VBX" (ByVal SqlConn As Integer, TblName As String, HFile As String, ErrFile As String, ByVal Direction As Integer) As Integer
  279. Declare Function SqlBCPSetL Lib "VBSQL.VBX" (ByVal Loginrec As Integer, ByVal Enable As Integer) As Integer
  280. Declare Function SqlBCPDone Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  281. Declare Function SqlSendCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Cmd As String) As Integer
  282. Declare Function SqlGetColumnInfo Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Col As ColumnData, ByVal Column As Integer) As Integer
  283. Declare Function SqlGetAltColInfo Lib "VBSQL.VBX" (ByVal SqlConn As Integer, AltCol As AltColumnData, ByVal ComputeId As Integer, ByVal AltColumn As Integer) As Integer
  284. Declare Function SqlOpenConnection Lib "VBSQL.VBX" (SERVER As String, LoginID As String, Pwd As String, WorkStation As String, Application As String) As Integer
  285. Declare Function SqlTextUpdate1Row Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ObjName As String, ByVal Column As Integer, Text As String) As Integer
  286. Declare Function SqlTextUpdateManyRows Lib "VBSQL.VBX" (ByVal QSqlConn As Integer, ByVal USqlConn As Integer, ObjName As String, ByVal Column As Integer, Text As String) As Long
  287. Declare Function SqlBCPColumnFormat Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Col As BcpColData, ByVal numcols As Integer) As Integer
  288. Declare Function SqlTsUpdate Lib "VBSQL.VBX" (ByVal QSqlConn As Integer, ByVal USqlConn As Integer, ByVal TabNum As Integer, TabName As String) As Integer
  289.  
  290.  
  291.  
  292. '============================================================================'
  293. '                                                                            '
  294. ' Visual Basic global constant file.  This file can be loaded into the       '
  295. ' global module.                                                             '
  296. '                                                                            '
  297. ' Some constants are commented out because they have duplicates (for         '
  298. ' example, NONE appears in several places).                                  '
  299. '                                                                            '
  300. '============================================================================'
  301.  
  302. '========='
  303. '         '
  304. ' General '
  305. '         '
  306. '========='
  307.  
  308. ' Booleans
  309. Global Const TRUE = -1
  310. Global Const FALSE = 0
  311.  
  312. '=================='
  313. '                  '
  314. ' Event parameters '
  315. '                  '
  316. '=================='
  317.  
  318. ' Button and Shift (KeyDown, KeyUp, MouseDown, MouseMove, MouseUp)
  319. Global Const SHIFT_MASK = 1
  320. Global Const CTRL_MASK = 2
  321. Global Const ALT_MASK = 4
  322. Global Const LEFT_BUTTON = 1
  323. Global Const RIGHT_BUTTON = 2
  324. Global Const MIDDLE_BUTTON = 4
  325.  
  326. ' ErrNum (LinkError)
  327. Global Const WRONG_FORMAT = 1
  328. Global Const REQUEST_WITHOUT_INIT = 2
  329. Global Const DDE_WITHOUT_INIT = 3
  330. Global Const ADVISE_WITHOUT_INIT = 4
  331. Global Const POKE_WITHOUT_INIT = 5
  332. Global Const DDE_SERVER_CLOSED = 6
  333. Global Const TOO_MANY_LINKS = 7
  334. Global Const STRING_TOO_LONG = 8
  335. Global Const INVALID_CONTROL_ARRAY_REFERENCE = 9
  336. Global Const UNEXPECTED_DDE = 10
  337. Global Const OUT_OF_MEMORY = 11
  338. Global Const SERVER_ATTEMPTED_CLIENT_OPERATION = 12
  339.  
  340. ' KeyCode (KeyDown, KeyUp)
  341. Global Const KEY_LBUTTON = &H1
  342. Global Const KEY_RBUTTON = &H2
  343. Global Const KEY_CANCEL = &H3
  344. Global Const KEY_MBUTTON = &H4         ' NOT contiguous with L & RBUTTON
  345. Global Const KEY_BACK = &H8
  346. Global Const KEY_TAB = &H9
  347. Global Const KEY_CLEAR = &HC
  348. Global Const KEY_RETURN = &HD
  349. Global Const KEY_SHIFT = &H10
  350. Global Const KEY_CONTROL = &H11
  351. Global Const KEY_MENU = &H12
  352. Global Const KEY_PAUSE = &H13
  353. Global Const KEY_CAPITAL = &H14
  354. Global Const KEY_ESCAPE = &H1B
  355. Global Const KEY_SPACE = &H20
  356. Global Const KEY_PRIOR = &H21
  357. Global Const KEY_NEXT = &H22
  358. Global Const KEY_END = &H23
  359. Global Const KEY_HOME = &H24
  360. Global Const KEY_LEFT = &H25
  361. Global Const KEY_UP = &H26
  362. Global Const KEY_RIGHT = &H27
  363. Global Const KEY_DOWN = &H28
  364. Global Const KEY_SELECT = &H29
  365. Global Const KEY_PRINT = &H2A
  366. Global Const KEY_EXECUTE = &H2B
  367. Global Const KEY_SNAPSHOT = &H2C
  368. Global Const KEY_INSERT = &H2D
  369. Global Const KEY_DELETE = &H2E
  370. Global Const KEY_HELP = &H2F
  371.  
  372. ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  373. ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'
  374.  
  375. Global Const KEY_NUMPAD0 = &H60
  376. Global Const KEY_NUMPAD1 = &H61
  377. Global Const KEY_NUMPAD2 = &H62
  378. Global Const KEY_NUMPAD3 = &H63
  379. Global Const KEY_NUMPAD4 = &H64
  380. Global Const KEY_NUMPAD5 = &H65
  381. Global Const KEY_NUMPAD6 = &H66
  382. Global Const KEY_NUMPAD7 = &H67
  383. Global Const KEY_NUMPAD8 = &H68
  384. Global Const KEY_NUMPAD9 = &H69
  385. Global Const KEY_MULTIPLY = &H6A
  386. Global Const KEY_ADD = &H6B
  387. Global Const KEY_SEPARATOR = &H6C
  388. Global Const KEY_SUBTRACT = &H6D
  389. Global Const KEY_DECIMAL = &H6E
  390. Global Const KEY_DIVIDE = &H6F
  391. Global Const KEY_F1 = &H70
  392. Global Const KEY_F2 = &H71
  393. Global Const KEY_F3 = &H72
  394. Global Const KEY_F4 = &H73
  395. Global Const KEY_F5 = &H74
  396. Global Const KEY_F6 = &H75
  397. Global Const KEY_F7 = &H76
  398. Global Const KEY_F8 = &H77
  399. Global Const KEY_F9 = &H78
  400. Global Const KEY_F10 = &H79
  401. Global Const KEY_F11 = &H7A
  402. Global Const KEY_F12 = &H7B
  403. Global Const KEY_F13 = &H7C
  404. Global Const KEY_F14 = &H7D
  405. Global Const KEY_F15 = &H7E
  406. Global Const KEY_F16 = &H7F
  407. Global Const KEY_NUMLOCK = &H90
  408.  
  409. ' State (DragOver)
  410. Global Const ENTER = 0
  411. Global Const LEAVE = 1
  412. Global Const OVER = 2
  413.  
  414. '====================='
  415. '                     '
  416. ' Function parameters '
  417. '                     '
  418. '====================='
  419.  
  420. ' MsgBox parameters
  421. Global Const MB_OK = 0                 ' OK button only
  422. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  423. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  424. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  425. Global Const MB_YESNO = 4              ' Yes and No buttons
  426. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  427.  
  428. Global Const MB_ICONSTOP = 16          ' Critical message
  429. Global Const MB_ICONQUESTION = 32      ' Warning query
  430. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  431. Global Const MB_ICONINFORMATION = 64   ' Information message
  432.  
  433. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  434. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  435. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  436.  
  437. ' MsgBox return values
  438. Global Const IDOK = 1                  ' OK button pressed
  439. Global Const IDCANCEL = 2              ' Cancel button pressed
  440. Global Const IDABORT = 3               ' Abort button pressed
  441. Global Const IDRETRY = 4               ' Retry button pressed
  442. Global Const IDIGNORE = 5              ' Ignore button pressed
  443. Global Const IDYES = 6                 ' Yes button pressed
  444. Global Const IDNO = 7                  ' No button pressed
  445.  
  446.  
  447. '==================='
  448. '                   '
  449. ' Method parameters '
  450. '                   '
  451. '==================='
  452.  
  453. ' Drag (controls)
  454. Global Const CANCEL = 0
  455. Global Const BEGIN_DRAG = 1
  456. Global Const END_DRAG = 2
  457.  
  458. ' GetData, GetFormat, SetData (Clipboard)
  459. Global Const CF_LINK = &HBF00
  460. Global Const CF_TEXT = 1
  461. Global Const CF_BITMAP = 2
  462. Global Const CF_METAFILE = 3
  463. Global Const CF_DIB = 8
  464.  
  465. ' Show (form)
  466. Global Const MODAL = 1
  467. Global Const MODELESS = 0
  468.  
  469. '================='
  470. '                 '
  471. ' Property values '
  472. '                 '
  473. '================='
  474.  
  475. ' Alignment (label)
  476. Global Const LEFT_JUSTIFY = 0          ' 0 - Left Justify
  477. Global Const RIGHT_JUSTIFY = 1         ' 1 - Right Justify
  478. Global Const CENTER = 2                ' 2 - Center
  479.  
  480. ' BackColor, ForeColor, FillColor (standard RGB colors: form, controls)
  481. Global Const BLACK = &H0&
  482. Global Const RED = &HFF&
  483. Global Const GREEN = &HFF00&
  484. Global Const YELLOW = &HFFFF&
  485. Global Const BLUE = &HFF0000
  486. Global Const MAGENTA = &HFF00FF
  487. Global Const CYAN = &HFFFF00
  488. Global Const WHITE = &HFFFFFF
  489.  
  490. ' BackColor, ForeColor, FillColor (system colors: form, controls)
  491. Global Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.
  492. Global Const DESKTOP = &H80000001               ' Desktop.
  493. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  494. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  495. Global Const MENU_BAR = &H80000004              ' Menu background.
  496. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  497. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  498. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  499. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  500. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  501. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  502. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  503. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  504. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  505. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  506. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  507. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  508. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  509. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  510.  
  511. ' BorderStyle (form, label, picture box, text box)
  512. Global Const NONE = 0                  ' 0 - None
  513. Global Const FIXED_SINGLE = 1          ' 1 - Fixed Single
  514. Global Const SIZABLE = 2               ' 2 - Sizable (Forms only)
  515. Global Const FIXED_DOUBLE = 3          ' 3 - Fixed Double (Forms only)
  516.  
  517. ' DragMode (controls)
  518. Global Const MANUAL = 0                ' 0 - Manual
  519. Global Const AUTOMATIC = 1             ' 1 - Automatic
  520.  
  521. ' DrawMode (form, picture box, Printer)
  522. Global Const BLACKNESS = 1             ' 1 - Blackness
  523. Global Const NOT_MERGE_PEN = 2         ' 2 - Not Merge Pen
  524. Global Const MASK_NOT_PEN = 3          ' 3 - Mask Not Pen
  525. Global Const NOT_COPY_PEN = 4          ' 4 - Not Copy Pen
  526. Global Const MASK_PEN_NOT = 5          ' 5 - Mask Pen Not
  527. Global Const INVERT = 6                ' 6 - Invert
  528. Global Const XOR_PEN = 7               ' 7 - Xor Pen
  529. Global Const NOT_MASK_PEN = 8          ' 8 - Not Mask Pen
  530. Global Const MASK_PEN = 9              ' 9 - Mask Pen
  531. Global Const NOT_XOR_PEN = 10          ' 10 - Not Xor Pen
  532. Global Const NOP = 11                  ' 11 - Nop
  533. Global Const MERGE_NOT_PEN = 12        ' 12 - Merge Not Pen
  534. Global Const COPY_PEN = 13             ' 13 - Copy Pen
  535. Global Const MERGE_PEN_NOT = 14        ' 14 - Merge Pen Not
  536. Global Const MERGE_PEN = 15            ' 15 - Merge Pen
  537. Global Const WHITENESS = 16            ' 16 - Whiteness
  538.  
  539. ' DrawStyle (form, picture box, Printer)
  540. Global Const SOLID = 0                 ' 0 - Solid
  541. Global Const DASH = 1                  ' 1 - Dash
  542. Global Const DOT = 2                   ' 2 - Dot
  543. Global Const DASH_DOT = 3              ' 3 - Dash-Dot
  544. Global Const DASH_DOT_DOT = 4          ' 4 - Dash-Dot-Dot
  545. Global Const INVISIBLE = 5             ' 5 - Invisible
  546. Global Const INSIDE_SOLID = 6          ' 6 - Inside Solid
  547.  
  548. ' FillStyle (form, picture box, Printer)
  549. ' Global Const SOLID = 0               ' 0 - Solid
  550. Global Const TRANSPARENT = 1           ' 1 - Transparent
  551. Global Const HORIZONTAL_LINE = 2       ' 2 - Horizontal Line
  552. Global Const VERTICAL_LINE = 3         ' 3 - Vertical Line
  553. Global Const UPWARD_DIAGONAL = 4       ' 4 - Upward Diagonal
  554. Global Const DOWNWARD_DIAGONAL = 5     ' 5 - Downward Diagonal
  555. Global Const CROSS = 6                 ' 6 - Cross
  556. Global Const DIAGONAL_CROSS = 7        ' 7 - Diagonal Cross
  557.  
  558. ' LinkMode (controls)
  559. ' Global Const NONE = 0                ' 0 - None
  560. Global Const HOT = 1                   ' 1 - Hot
  561. Global Const COLD = 2                  ' 2 - Cold
  562.  
  563. ' LinkMode (form)
  564. ' Global Const NONE = 0                ' 0 - None
  565. Global Const SERVER = 1                ' 1 - Server
  566.  
  567. ' MousePointer (form, controls)
  568. Global Const DEFAULT = 0               ' 0 - Default
  569. Global Const ARROW = 1                 ' 1 - Arrow
  570. Global Const CROSSHAIR = 2             ' 2 - Cross
  571. Global Const IBEAM = 3                 ' 3 - I-Beam
  572. Global Const ICON_POINTER = 4          ' 4 - Icon
  573. Global Const SIZE_POINTER = 5          ' 5 - Size
  574. Global Const SIZE_NE_SW = 6            ' 6 - Size NE SW
  575. Global Const SIZE_N_S = 7              ' 7 - Size N S
  576. Global Const SIZE_NW_SE = 8            ' 8 - Size NW SE
  577. Global Const SIZE_W_E = 9              ' 9 - Size W E
  578. Global Const UP_ARROW = 10             ' 10 - Up Arrow
  579. Global Const HOURGLASS = 11            ' 11 - Hourglass
  580. Global Const NO_DROP = 12              ' 12 - No drop
  581.  
  582. ' ScaleMode (form, picture box, Printer)
  583. Global Const USER = 0                  ' 0 - User
  584. Global Const TWIPS = 1                 ' 1 - Twip
  585. Global Const POINTS = 2                ' 2 - Point
  586. Global Const PIXELS = 3                ' 3 - Pixel
  587. Global Const CHARACTERS = 4            ' 4 - Character
  588. Global Const INCHES = 5                ' 5 - Inch
  589. Global Const MILLIMETERS = 6           ' 6 - Millimeter
  590. Global Const CENTIMETERS = 7           ' 7 - Centimeter
  591.  
  592. ' ScrollBar (text box)
  593. ' Global Const NONE = 0                ' 0 - None
  594. Global Const HORIZONTAL = 1            ' 1 - Horizontal
  595. Global Const VERTICAL = 2              ' 2 - Vertical
  596. Global Const BOTH = 3                  ' 3 - Both
  597.  
  598. ' Value (check box)
  599. Global Const UNCHECKED = 0             ' 0 - Unchecked
  600. Global Const CHECKED = 1               ' 1 - Checked
  601. Global Const GRAYED = 2                ' 2 - Grayed
  602.  
  603. ' WindowState (form)
  604. Global Const NORMAL = 0                ' 0 - Normal
  605. Global Const MINIMIZED = 1             ' 1 - Minimized
  606. Global Const MAXIMIZED = 2             ' 2 - Maximized
  607.  
  608. ' *****************************************************
  609. ' ************** Bobby's stuff ************************
  610. ' *****************************************************
  611. Global Const WM_USER = &H400
  612. Global Const EM_SETPASSWORDCHAR = WM_USER + 28
  613. Global Const ES_PASSWORD = &H20
  614. Global Const GWL_STYLE = -16
  615. Global Const WS_VSCROLL = &H200000
  616. Global Const WS_HSCROLL = &H100000
  617.  
  618. Global Const LB_RESETCONTENT = WM_USER + 5
  619. Global Const LB_GETTOPINDEX = WM_USER + 15
  620. Global Const LB_FINDSTRING = WM_USER + 16
  621. Global Const LB_SETTABSTOPS = WM_USER + 19
  622.  
  623. Global Const CB_RESETCONTENT = WM_USER + 11
  624. Global Const CB_FINDSTRING = WM_USER + 12
  625. Global Const CB_SELECTSTRING = WM_USER + 13
  626.  
  627. Declare Function GetFocus% Lib "user" ()
  628. Declare Function SendMessage% Lib "user" (ByVal hWnd%, ByVal Msg%, ByVal wParm%, ByVal lParm As Any)
  629. Declare Function GetWindowLong Lib "user" (ByVal hWnd%, ByVal nIndex%) As Long
  630. Declare Function SetWindowLong Lib "user" (ByVal hWnd%, ByVal nIndex%, ByVal dwNewLong&) As Long
  631. Declare Function PutFocus Lib "user" Alias "SetFocus" (ByVal hWnd As Integer) As Integer
  632. Declare Function ControlHwnd% Lib "ctlhwnd.dll" (A As Control)
  633.  
  634. Global SqlConn%, WrkConn%, SqlLogRec%
  635. Global Server_name$, Login_ID$, Password$, DatabaseName$
  636. Global NOROWSLEFT%, numcols%, numrows%, BuffSize%, FilterOK%
  637. Global CRLF As String * 2
  638.  
  639. Type ColDef
  640.   Name As String * 30
  641.   Type As Integer
  642.   Length As Integer
  643. End Type
  644.  
  645. Global TableCols() As ColDef
  646.  
  647.